home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm24 / 00877_PH-fi bt ret.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  357 b   |  20 lines
  1. on MouseClick
  2.   global gLocLabel
  3.   set gLocLabel to "PH:OU fi"
  4.   puppetTransition(51, 1)
  5. end
  6.  
  7. on mouseDown
  8.   global gNumSpr, g1erSprLoc, gBoutons
  9.   set gNumSpr to g1erSprLoc + 1
  10.   gBoutons(appuie, gNumSpr)
  11. end
  12.  
  13. on mouseUp
  14.   global gNumSpr, g1erSprLoc, gBoutons
  15.   gBoutons(relache, gNumSpr)
  16.   if gNumSpr = (g1erSprLoc + 1) then
  17.     MouseClick()
  18.   end if
  19. end
  20.